00100	ARRAY D1(801),D2(905),D3(1020),D4(1125),D5(128),D6(45),D7(23),D8(18); 
00200	VARIABLE /R,/RA,/RB,/RC,/RD,/X;
00300	NCHNS←4;SRATE←12500;SPEED←4;MAG←512/SRATE;
00400	REVINIT←1;R←0;
00500	COMPILE;
00600	INSTRUMENT REV;
00700	REV1(R,801,.827,D1);
00800	REV1(R,901,.805,D2);
00900	REV1(R,1011,.783,D3);
01000	REV1(R,1123,.764,D4);
01100	REV2(U1+U2+U3+U4,123,.7,D5);
01200	REV2(U5,43,.7,D6);
01300	REV2(U6,13,.7,D7);
01400	R←0;OUTA←OUTA+U7/4;
01500	OUTB←OUTB+U7/4;
01600	OUTC←OUTC+U7/4;
01700	OUTD←OUTD+U7/4;
01800	END;
01900	
02000	INSTRUMENT BOING;
02100	ZOSCIL(P4,MAG/P2,P5);
02200	ZOSCIL(1,MAG/P2,P6);
02300	COSCIL(MAG*P3,MAG/P9,P10);
02400	COSCIL(U1*(1-U2),MAG*P3+U3,P7);
02500	COSCIL(U1*U2,MAG*P3+U3,P8);
02600	COSCIL(1,MAG/P9,P11);
02700	COSCIL(1,MAG/P9,P12);
02800	COSCIL(1,MAG/P9,P13);
02900	COSCIL(1,MAG/P9,P14);
03000	COSCIL(U1*(1-U2),MAG*P3,P7);
03100	COSCIL(U1*U2,MAG*P3,P8);
03200	OUTA←OUTA+(U4+U5)*U6;
03300	OUTB←OUTB+(U4+U5)*U7;
03400	OUTC←OUTC+(U4+U5)*U8;
03500	OUTD←OUTD+(U4+U5)*U9;
03600	X←.1*(U10+U11);
03700	RA←U6-.5;
03800	RB←U7-.5;
03900	RC←U8-.5;
04000	RD←U9-.5;
04100	R←R+X*.8+X*(.25-RA*RA)/.25+X*(.25-RB*RB)/.25+X*(.25-RC*RC)/.25;
04200	R←R+X*(.25-RD*RD)/.25;
04300	END;
04400	INSTRUMENT DOING;
04500	ZOSCIL(P4,MAG/P2,P5);
04600	ZOSCIL(1,MAG/P2,P6);
04700	COSCIL(MAG*P3,MAG/P9,P10);
04800	COSCIL(U1*(1-U2),MAG*P3+U3,P7);
04900	COSCIL(U1*U2,MAG*P3+U3,P8);
05000	COSCIL(1,MAG/P9,P11);
05100	COSCIL(1,MAG/P9,P12);
05200	COSCIL(1,MAG/P9,P13);
05300	COSCIL(1,MAG/P9,P14);
05400	COSCIL(U1*(1-U2),MAG*P3,P7);
05500	COSCIL(U1*U2,MAG*P3,P8);
05600	OUTA←OUTA+(U4+U5)*U6;
05700	OUTB←OUTB+(U4+U5)*U7;
05800	OUTC←OUTC+(U4+U5)*U8;
05900	OUTD←OUTD+(U4+U5)*U9;
06000	X←.1*(U10+U11);
06100	RA←U6-.5;
06200	RB←U7-.5;
06300	RC←U8-.5;
06400	RD←U9-.5;
06500	R←R+X*.8+X*(.25-RA*RA)/.25+X*(.25-RB*RB)/.25+X*(.25-RC*RC)/.25;
06600	R←R+X*(.25-RD*RD)/.25;
06700	END;
06800	FINISH;